-- background: 2781 from stack: in.0
-- bmap block id: 2060
-- flags: 0000
-- background id: 0
-- name: disk
----- HyperTalk script -----
on openBackground
  hide field "distribution"
  hide field "registered"
  hide field "copy protected"
  pass openBackground
end openBackground



on openCard

  ClearButtons
  ClearBoxes

  if field "distribution" = "p" then
    set hilite of background button "public domain" to true
    set textStyle of background button "public domain" to bold
  else if field "distribution" = "s" then
    set hilite of background button "shareware" to true
    set textStyle of background button "shareware" to bold
  else if field "distribution" = "c" then
    set hilite of background button "commercial" to true
    set textStyle of background button "commercial" to bold
  end if

  if field "registered" = "r" then
    set hilite of background button "registered" to true
    set textStyle of background button "registered" to bold
  end if

  if field "copy protected" = "c" then
    set hilite of background button "copy protected" to true
    set textStyle of background button "copy protected" to bold
  end if

  pass openCard
end openCard



on ClearButtons
  set hilite    of background button "public domain" to false
  set hilite    of background button "shareware" to false
  set hilite    of background button "commercial" to false
  set textStyle of background button "public domain" to plain
  set textStyle of background button "shareware" to plain
  set textStyle of background button "commercial" to plain
end ClearButtons



on ClearBoxes
  set hilite    of background button "registered" to false
  set hilite    of background button "copy protected" to false
  set textStyle of background button "registered" to plain
  set textStyle of background button "copy protected" to plain
end ClearBoxes



-- part 2 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=42 top=102 right=138 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: software


-- part 7 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=142 top=289 right=325 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to previous card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=182 top=289 right=325 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to next card
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=6 top=289 right=325 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go Home
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=222 top=289 right=325 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 15 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=89 top=145 right=162 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: version


-- part 16 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=181 top=145 right=161 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: size


-- part 17 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=377 top=67 right=86 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 92
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: copy protected
----- HyperTalk script -----
on mouseUp

  if field "copy protected" = "c" then
    put empty into field "copy protected"
    set hilite of background button "copy protected" to false
    set textstyle of background button "copy protected" to plain
  else
    put "c" into field "copy protected"
    set hilite of background button "copy protected" to true
    set textstyle of background button "copy protected" to bold
  end if

end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=271 top=33 right=51 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 92
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: public domain
----- HyperTalk script -----
on mouseUp
  put "p" into field "distribution"
  ClearButtons
  set hilite of background button "public domain" to true
  set textstyle of background button "public domain" to bold
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=271 top=50 right=68 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 92
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: shareware
----- HyperTalk script -----
on mouseUp
  put "s" into field "distribution"
  ClearButtons
  set hilite of background button "shareware" to true
  set textstyle of background button "shareware" to bold
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=271 top=67 right=85 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 92
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: commercial
----- HyperTalk script -----
on mouseUp
  put "c" into field "distribution"
  ClearButtons
  set hilite of background button "commercial" to true
  set textstyle of background button "commercial" to bold
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=377 top=50 right=68 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 92
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: registered
----- HyperTalk script -----
on mouseUp

  if field "registered" = "r" then
    put empty into field "registered"
    set hilite of background button "registered" to false
    set textstyle of background button "registered" to plain
  else
    put "r" into field "registered"
    set hilite of background button "registered" to true
    set textstyle of background button "registered" to bold
  end if

end mouseUp



-- part 28 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=306 top=102 right=119 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Cost


-- part 29 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=306 top=121 right=140 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: type


-- part 24 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=277 top=162 right=234 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: publisher


-- part 25 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=277 top=257 right=325 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: publisher


-- part 22 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=84 top=49 right=69 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: serialNr


-- part 23 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=393 top=30 right=49 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: distribution


-- part 30 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=421 top=30 right=49 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: registered


-- part 31 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=449 top=30 right=49 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: copy protected


-- part 32 (field)
-- low flags: 80
-- high flags: 2004
-- rect: left=273 top=30 right=144 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 226
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: registry


-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=132 top=195 right=246 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: registry
----- HyperTalk script -----
on mouseUp
  set the visible of field "registry" to not the visible of field "registry"
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=98 top=289 right=325 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  global key
  ask "Enter word or name you're looking for:" with key
  if it is not empty then
    go to next card
    find it
    put it into key
  end if
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=50 top=289 right=325 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "Title" or "Type" or "Cancel"
  push card
  if it is "Title"
  then sort by field "software"
else if it is "Type"
then sort by field "type"
pop card
end mouseUp